5 POKE53280,6:PRINTCHR$(14)
10 PRINTCHR$(147)"[212]RENNPROGRAMM":PRINT"[218]U TRENNENDE [215]ORTE EINGEBEN!"
15 PRINT"[197]NDE MIT '[210][197][212][213][210][206]'!":GOTO430
20 A%(0)=LEN(A$):IFA%(0)<5ORV=1THEN120
30 B$=LEFT$(A$,5):IFB$="UNTER"THEN120
50 B$=LEFT$(A$,4):IFB$="NACH"ORB$="]BER"ORB$="MISS"THENB%=4:GOTO370
60 B$=LEFT$(A$,3):IFB$="VER"ORB$="ZER"ORB$="AUF"ORB$="EIN"THENB%=3:GOTO370
70 IFB$="WEG"ORB$="HIN"ORB$="DAR"ORB$="ENT"ORB$="VOR"THENB%=3:GOTO370
80 IFB$="AUS"ORB$="HER"THENB%=3:GOTO370
90 B$=LEFT$(A$,2):IFB$="BE"ORB$="ZU"ORB$="ER"ORB$="AN"THENB%=2:GOTO370
100 IFB$="UR"ORB$="UM"ORB$="UN"ORB$="AB"ORB$="GE" THENB%=2:GOTO370
110 V=1
120 FORI=1TOA%(0):B$=MID$(A$,I,1)
130 IFB$="A"ORB$="E"ORB$="I"ORB$="O"ORB$="U"THENA%(I)=1:NEXTI:GOTO160
135 IFB$="["ORB$="]"ORB$="\"THENA%(I)=1:NEXTI:GOTO160
140 IFB$="[193]"ORB$="[197]"ORB$="[201]"ORB$="[207]"ORB$="[213]"THENA%(I)=1:NEXT:GOTO160
150 A%(I)=0:NEXT
160 I=0
170 I=I+1:IFI>A%(0)THEN410
180 IFA%(I)=0THEN170
190 B=0
200 B=B+1:IFB+I>A%(0)THEN410
210 IFMID$(A$,B+I,1)=" "THENB%=B+I:GOTO370
220 IFA%(B+I)=0THEN200
230 IFB=1THEN200
240 B%=I+B-2:IFB%<2THEN320
250 IFB%<3THEN270
260 IFMID$(A$,B%-1,3)="SCH"THENB%=B%-2:F=0:GOTO350
270 B$=MID$(A$,B%,2)
280 IFB$="CH"ORB$="EI"ORB$="AU"ORB$="PH"ORB$="TH"ORB$="ST"THENB%=B%-1
290 CHR$